é 
— Cr$ 500 


Wi — JAN/FEV/84 


No 


e 
o 
no do 


€ 


ática 


A Política Nacional de Inform 


Sistema Operacional 
é, como funciona. 


O que 





Leve um computador pessoal da Prológica 
e ganhe grátis algumas horas a mais por dia. 






| 


” | 
a 


da Prológica põe | ] PU) 

a informática ao 
alcance dos executivos, 
profissionais liberais, N 
estudantes e da familia. 
Ele é um microcomputador 
de custo acessível e com a M 
capacidade equivalente à dos y 
grandes computadores de ontem. ro 
Você não imagina a variedade de q 
tarefas que ele pode executar. ki 
E além de economizar o seu tempo, 


com um de seus revendedores 
sobre as infinitas utilidades 
do CP 500. 

“E peça uma demonstração do 
PROCALC, um programa desenvolvido 
pela Prológica para o CP 500 fomecer 






o CP 500 tem uma outra vantagem: Características Técnicas informações gerenciais tais como: projeção 
ele não erra. e CPU: Microprocessador Z80 de vendas, análise financeira, fluxo de 
Errar é humano e esse direito não foi dado e Memória: 48Kb RAM. 16Kb ROM caixa, controle de projetos e até 

ao computador. e Vídeo 12” 16 linhas x 64 ou 32 col. planejamento de despesas domésticas, etc. 






e Teclados alfanumérico e numérico 
reduzidos com um total de 65 teclas SER PROLÓGICA 
e Até 2 unidades de discos flexíveis EMEB microcomputadores 


de 5 1/4” no próprio gabinete, com ENS 
expansão de mais 2 unidades externas o 


e Interface paralela, acessório opcional: de Eno ado Cabe edil DGE 


Serial - RS 232 € Telex (011) 30366 - LOGI BR - SP 
e Basic nível Ill e Som Tels.: 531-8822 











AL - Maceió - 221-4851 - AM - Manaus - 234-1045 - BA - Salvador - 247-8951 - 235-4184 - CE - Fortaleza - 226-0871 - 231-1295 - 226-4922 - DF - Brasília - 226-1523 - 273-2128 - 225-4534 - 226-4327 - 
242-6344 - ES - Vitória - 229-1387 - 222-581 1 - GO - Goiânia - 224-7098 - 225-8598 - 224-4657 - MA - São Luis - 222-6696 - MT - Cuiabá - 321-2307 - MS - Campo Grande - 383-1277 - Dourados - 
421-1052 - MG - Belo Horizonte - 201-7555 - 226-6336 - 225-3305 - 222-3196 - 227-0881 - Betim - 531-3806 - Cel. Fabriciano - 841-3400 - Juíz de Fora - 212-9075 - Uberlândia - 235-1099 - 235-6600 - Viçosa - 
891-2445 - PA - Belém - 228-001 1 - PB - João Pessoa - 221-8232 - 221-6743 - PR - Curitiba - 224-5616 - 243-1731 - 224-3422 - 223-2323 - 232-2793 - Ponta Grossa - 24-0057 - PE - Recife - 221-0142 - 
221-5774 - PI - Teresina - 222-0186 - RJ - Campos - 22-3714 - Rio de Janeiro - 264-5797 - 221-5141 - 240-1099 - 266-4499 - 253-3395 - 252-2050 - RN - Natal - 222-3212 - RS - Caxias do Sul - 221-3516 - 
Gravatai - 88-1023 - Novo Hamburgo - 93-1922 - Porto Alegre - 26-8246 - 42-0908 - 27-2255 - 21-4189 - Sta. Maria - 221-7120 - RO - Porto Velho - 221-2656 - SP - Araçatuba - 23-8021 - Assis - 22-1797 - 
22-2200 - Barretos - 22-641 1 - Campinas - 2-4483 - 32-4145 - Jundiaí - 4340222 - Marília - 33-5099 - Mogi das Cruzes - 469-6640 - 468-3779 - Mogi Guaçu - 61-0256 - Piracicaba - 33-1470 - Presidente Prudente - 
22-3165 - Ribeirão Preto - 625-5924 - 625-5926 - 635-1195 - São Joaquim da Barra - 728-2472 - São José dos Campos - 23-3752 - 22-7311 - São José do Rio Preto - 32-2842 - Santos - 33-2230 - Sorocaba - 

33-7794 - SC -Blumenau - 22-6277 - Campos Novos - 44-0196 - Criciúma - 33-1436 - Florianópolis - 22-9622 - 22-6757 - Itajaí - 44-1524 - Joinvile - 33-7520 - Rio do Sul - 22-0557 - SE - Aracajú - 224-1310 


*% CP500. Omicro pessoal mais vendido do Brasil. 
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Apesar da recessão econômica que atinge o Pais,o setor de 
Informática vem crescendo a uma média anual de 37%, enquanto 
as demais atividades industriais registram declínio de 8%. Em 
1983, a indústria nacional da área, que emprega em torno de 25 
mil pessoas, teve um faturamento da ordem de 640 milhões de 
dólares. Segundo dados da Associação Brasileira da Indústria de 
Computadores e Periféricos (Abicomp), o segmento que apresentou 
maior índice de crescimento for o de computadores pessoais, cujas 
vendas subiram aproximadamente 500% em relação a 1982, com 
cerca de 30 mil unidades vendidas. 

Estes resultados só foram possíveis, temos certeza, devido à 
política desenvolvida pela Secretaria Especial de Informática 
(SEL), cujo principal motor é a reserva de mercado — mecanismo 
que a seis anos restringe o mercado interno de minis e 
microcomputadores às empresas 100% nacionais, incentivando a 
geração de nossa própria tecnologia. 

Neste número de Geração Prológica estamos levando a 
nossos leitoresa discussão da Política Nacional de Informática, 
através de entrevista com o prof Ripper, da Universidade Estadual 
de Campinas (pág. 18). Entre outros temas, o professor aborda o 
problema da criação de uma “Lei de Informática”, avalizada pelo 
Congresso Nacional. Lei que nós da Prológica consideramos 
imprescindível para o constante desenvolvimento e 
aperfeiçoamento da indústria da área. 

A partir desta entrevista com o prof' Ripper, inauguramos em 
nossa revista um espaço dedicado exclusivamente ao 
acompanhamento da Política Nacional de Informática. Isto porque 
acreditamos que os usuários de computador têm de estar conscientes 
da luta de todo um setor pela capacitação tecnológica nacional. 


Carlos Roberto A. Gauch 
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* Programas cedidos pela Prológica Microcomputadores. 
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Seres 





















Sou proprietário de um micro- 
computador CP 500 equipado com 
duas unidades de disco e impressora 


seguinte mensagem na linha 
1320::OUT OF DATA NA 1320”. Per- 
gunto: qual seria a correção a ser 
introduzida? 


Possuo um CP 200 e gostaria 
de receber informações de como 
adaptar ao meu micro um joystick 


modelo P 500, adquiridos recente- 
mente. Chegou-me às mãos a revista 
Geração Prológica nº 2, a qual me 
despertou grande atenção. Aprovei- 
tando a oportunidade que a revista 
oferece, gostaria de fazer algumas 
consultas: 

1 — Não estou conseguindo 
operar a minha impressora para fa- 
zê-la imprimir os programas do dis- 
quete e do video. Gostaria de rece- 
ber orientação a respeito. 

2 — Gravei o programa “Cadas- 
tro de Clientes”, das páginas 7 e 8 da 
revista nº 2, e ao rodá-lo obtive a 







Sr. Anatoli, na sua impressora 
P 500 deve ser usado o comando 
LLIST para imprimir o programa da 
memória do computador. Para isto, 
execute primeiro o comando LOAD 
“NOME DO PROGRAMA" e em se- 
guida um LLIST. Para a impressão da 
tela (HARD COPY) pressione simulta- 
neamente as teclas SHIF, SETA PA- 
RA BAIXO, ASTERISCO e a imagem 
da tela será transferida para a im- 


1605 FOR I=1i TO J 


, 


1635 ULOSE 






















ou possuidora de um compu- 
tador CP 300 e já fiz o meu pedido 
de assinatura da revista Geração 
Prológica. Desejo que vocês me 
indiquem o local onde posso en- 
contrar um livro voltado ao Basic 
Avançado, com descrições detalha- 
das de como utilizar a fita cassete e 
os disquetes. 


Cara Joélia, nas livrarias de 
Belo Horizonte você pode encon- 
trar O livro “Sugestões para O Pro- 
gramador Basic”, de Earl R. Sava- 
ge, 126 págs., publicado pela Edite- 
le. Se você preferir, mande um che- 
que nominal, cruzado, no valor de 
Cr$ 5 mil à Editele Editora Técnica 
Ltda., r. Casa do Ator, 1060, CEP 
04546, São Paulo (SP), e receba o 
livro pelo correio, sem precisar sair 
de Santa Rita do Sapucaí. 

Quanto à sua segunda pergun- 
ta podemos lhe respondar que o CP 
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linha 1750 se esta linha está expres- 
sa para gravação em fita cassete e o 
meu micro é para disquete”? 


16500 OFEN"D",1, "NOME DO ARQUIVO” 


1725 OFEN"i", 1, "NOME DO ARQUIVO" 
1750 INFUTHL,N$CI),ESCI)>T$CI)D-DE(I)>] 
1760 IF N$cIl)="FIM! THEN CLOSEsZRETURN 


3 — Que correção devo fazer na | 


Finalizando, desejo parabenizá- 


los pelo conteudo e objetividade de 
Geração Prológica, que, sem dúvida 
alguma, constituirá um excelente 
instrumento de desenvolvimento dos 
proprietários de microcomputadores 
Prológica. 


Anatoli Oliynik 
Campo Mourão - PR 


pressora — que deve estar em linha 


(LUZ DE LINHA ACESA). 

Com relação ao problema do 
OUT OF DATA, na 1320, acreditamos 
que tenha ocorrido algum erro na 
linha 230. Aconselhamos verificar se 
toda a digitação está de acordo com 
a listagem publicada pela revista. 

Para gravar os dados em disco, 
devem ser alteradas ou incluídas es- 
tas linhas: 


Ló1O FRANTHISNECI)S!>"SESÇI); Oo STE)! EDISON ST 
1630 FRINTHL. ME IM SM, span, 


Ss e 


A 


S | 


Tenho dúvidas quanto à orga- 
nização alfanumérica de um arqui- | 
vo. Já desenvolvi programas em 
computadores de grande porte, uti- 
lizando o Sort. Como poderia orga- 
nizar meu arquivo no CP 3007 


Joélia Morais Pinto 
Santa Rita do Sapucaí — MG 


300 por enquanto ainda não tem 
utilitários que possam facilitar o 
processamento, como é o caso dos 
computadores de grande porte. 
Sendo assim, há duas maneiras de 
resolver o problema: se o seu micro 
estiver conectado a um drive, você 
poderá usar a instrução CMD “0” 
(do manual do DOS 500), que colo- 
ca uma matriz string em ordem 
alfabética. Se o seu CP 300 não 
possuir drive, é preciso desenvol- 
ver a rotina de classificação dos 
arquivos em Basic ou Assembler. 


do TK-85, chaveamento do bip e 
onde ter assistência técnica na ci- 
dade de Piracicaba. 


Sílvio F, de Barros Ferraz 
Piracicaba — SP 


Prezado Sílvio, enquanto a 
Prológica não lançar o seu joystick, 
existe a necessidade de uma inter- 
face entre o micro e o periférico, 
pois o joystick deve ser acoplado à 
saida lateral do CP 200, diretamen- 
te aos sinais do microprocessador. 
Para o bip se tornar opcional, é 
necessário fazer uma alteração no 
hardware do CP 200. 

Em Piracicaba, você pode ob- 
ter assistência técnica na Palma 
Microcomputadores Ltda. r. Go- 
vernador Pedro de Toledo, 1254, 
te!.: (0194) 33-1470 e (0194) 33- 
1637. 


Venho, na qualidade de usuá- 
rio de um CP 300, agradecer o 
envio de um exemplar do nº 1 de 
Geração Prológica, bem como soli- 
citar o nº 2 e a inclusão de meu 
nome na lista de assinantes da 
revista. Gostaria também de saber 
como posso obter os programas 
Calcstar, Wordstar e DB ll. 


Roberto de Araújo Santos 
Tijuca — RJ 


Caro Roberto, os programas 
que você menciona em sua carta só 
existem para computadores cujo 
sistema operacional seja o CP/M, o 
que não é o caso do CP 300. Para 
que no seu micro sejam usados 
programas equivalentes — Procalc, 
Protexto e Prodados — é impres- 
cindível a aquisição de pelomenos 
uma unidade de disco. 





Rotação da Tela no CP bO0U 


Para dar um melhor visual no seu software, que tal uma 
rotação detela? A rotina abaixo pode ser acrescentada no início 
de qualquer programa e tem por finalidade fazer com que as 
mensagens do vídeo do seu CP 300 ou CP 500 girem à direita ou 
esquerda. Para efetuar a rotação, basta que você pressione 


LO “CHENAKKKKEKKEKKANA ND MD DE DIE JE 


20 x ROTACAU 1 * 
30 “x FROLOGICA x 
4O “x CF-300 / CF-500 x 


DO CHKENNNHN NH NM MIM DEDE DEDE ME DE DE ME DE DE DE DE DE E 


60 “CODIGOS FARA SCROLL À ESQUERDA 
70 DATA 6,64,197,175,22,60,95,93-1 


80 DATA 6,16,197,175,71,14,63,26,2 
97,176 
90 DATA 18,19,35,193, 16,242, 14, 200 
,111,120 
100 DATA 177,32,251,193,16,222,201 
110 “CODIGOS FARA SCROLL A DIREITA 
120 DATA 6,64,197,17,255,63,53,254 
16316 
130 DATA 16,197,175,71,14,63,26,23 
7, 1814,18 

l4O DATA 27,43,193,16,242, 14,200,1 
1,120,177 
150 DATA 32,251,193,16,223,201 
160 A$=" 

1234567'"' 37 ERANCOS 

170 E$=" 

00123456'''36 ERANCOS 

180 C=VARFTR(AS)2A=FEEN(ÇCO+2)4256+F 
EER(C+IL) 

190 FOR 1=A TU A+36:READ X: FOKRE I 
» X:NEXT 1 





qualquer tecla do micro. re. pais 





DA PROLÓGICA 





Agora está em novo endereço, 
com mais espaço, novo telefone 
e a mesma eficiência de sempre. 

Rua Fidêncio Ramos, 302 
CEP 04551 - Vila Olímpia - SP. 
Tel.: 813-6107 


A ASSISTÊNCIA TÉCNICA 
MUDOU PARA MELHOR. 


Modelo CP 300/CP 500 
48k RAM 


200 D=VARFTR(E$S): E=FEEKXCD+2) x256+F 
EEK(D+1) 
210 FOR I=E Ti) E+35:READ X:FOKE 1, 
X:NEXTI 
220 M$=STRING$(23.133)+"F ROLO 
G I C A "+STRING$(25,138) 
230 FOR I=1 TO 6 zFRINTM$:NEXT 
240 FRINT:FRINTSTRING$(15,32)+"'DIG 
ITE QUALQUER TECLA F/ MUDAR A DIRE 
CAO"+STRING$(15,32) 
250 FOR I=1 TO 6:FRINTM$:NEXT 
260 DEFUSRO=A:DEFUSR1=E “USE ESTA 
LINHA 50 F/ EASIC DISCO 
270 F=0 
280 K=0 
290 IF F=0 THEN X=USRO(O) ELSE X=U 
SRI(O) 
300 * LINHA 290 SO FARA EASIC DISC 
0 

FARA EASIC RESLDEN 
TE: 285 IF F=0 THEN FOKE 16526, FEE 
K(C+1):POKE 16527, FEEK(CU+2) ELSE F 
OKE 16526, FEEK(D+1):FO0KE16527,FEEK 
(D+2) 290 
X=USR(O) 
310 FOR I=1 TO 100: NEXT 
320 K=k+1 
330 IF Kc<5 AND INKEYs="""" THEN 290 


940 F=NOT F: GOTO 280 


EEB PROLOG 
DE nO Salir: 
EE 

— 
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Jogo da Velha 


Para quem 
quer ser 
craque no 
Jogo da 
Velha, 
driblando o 
tempo ocioso, 
o programa 
que 
publicamos 
neste espaço é 
perfeito. Após 
digitá-lo, 
pressione 
RUNe 
ENTER e 
escolha quem 


CUNNNNNM DEM MEI DE DEDE DE dá DE DEDE DEDE ME HE 
1% JOGO DA VELHA * 
1% FROLOGICA * 
1% CF - 200 x 
5 RUE DMI DEDE DEDE DEDE DE DEDE DE MEME MK 
10 LET W=0 
20 LET K=0 
30 LET J=0 
4O DIM X(9) | 
50 GOTO 160 
60 LET 2$='"'59132587963756471" | 
70 GOSUE 960 
80 LET A=I 
90 GOSUE 960 
100 LET E=I 
110 LET W=1 
120 GOSUE 960 
130 LET C=I 
140 LET W=0 
150 RETURN 
160 FRINTTAE 10,'' FROLOGICA | 
JOGO DA VELHA 


1 
Pa 
3 
uy 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


FRINT 

FRINT'"VOCE QUER COMECAR?(S/N)' 
INPUT F$ 
CLS 

IF F$="S" 
FRINT 

LET J=0 
FRINT"AGORA EU JOGO" 
FRINT"DIGITE <ENTER>" 

FRINT"E AGUARDE. ...." 

INFUT X$ 

CLS 

GOSUE: 60 

300 FOR N=1 TO 8 

310 IF X(A)+X(E)+X(C)=104 THEN GOT 
O 430 

320 GOSUE 70 

330 NEXT N 

340 GOSUE 60 | 
350 FOR N=1 TO 8 | 
360 IF X(A)+X<E)+X(C)=122 THEN Got. 
O 430 

370 GOSUE 
380 NEXT N 


THEN GOTO 470 





70 
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390 


| 400 
| 410 


420 
430 


-UM4O 


450 
460 
470 
480 


| 490 
| 500 


o10 
20 
3390 
40 
090 
260 
70 
280 
390 


| 600 


610 
620 





Modelo: CP 200 
16k RAM 


810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


LET R=INT(RND*9)+1 

IF X(R)4«>0 THEN GOTO 390 

LET X(R)=52 

GOTO 470 

IF X(A)=0 THEN LET Y=Á 

IF X(<E)=0 THEN LET Y=E 

IF X(C)=0 THEN LET Y=C 

LETX(Y)=52 

LETK=k+1 

PRINTTAE 105" PROLOGICA 
JOGO DA VELHA 


FOR T=1 TO 9 

PRINT CHR$(X<(T)); 

IF T=535 OR T=6 THEN GOTO 550 
IF T=9 THEN GOTO 580 


PRINT"x'!s | 
NEXT T 

FRINT 

PRINT! xxx" 

NEXT T 

FRINT 

FRINT 

GOSUE 60 

FOR N=1 TO 8 

IF X(A)+X(E)+X(C)=183 THEN 


950 
940 
970 
980 
| 990 


GOT 


O 850 


630 


O 870 
| 640 
| 650 


660 
670 
680 


| 690 
| 700 


710 
720 
0 

730 


- 740 


750 
760 
770 
780 
790 
800 


IF X(A)+X(E)+X(C)=156 THEM GOT 


GOSUE 70 

NEXT N 

IF kK=9 THEN GOTO 890 

IF J=i THEN GOTO 220 

FRINT'SUA VEZ" 

FRINT"QUAL A SUA FPOSICAO?" 
GOSUE 770 

INFUT H 

IF H>9 OR X(<H)<>0 THEN GOTO 71 


CLS 

LET X(<H)=61 
LET J=1 
GOTO 470 
PRINT 
FRINT'1 2 3" 
FRINT 
FPRINT"YU 5 6” 





começa 0 jogo: 
você ou o 
micro. Ao 
iniciar, 
aparecerá na 
tela um mapa 
com osnúmeros 
referentes às 
posições 
desejadas. Na 
sua vez, digite 
um número de 
lag, seguido 
de ENTER. Na 
vez do CP 200, 
digite apenas 
ENTER. 4 pai 


PRINT 

PRINT'7 8 9" 
RETURN 

FRINT 
FRINT'PARABENS, 
GOTO 900 
FRINT'SINTO MUITO, 
GOTO 900 

PRINT'DEU EMPATE..." 
PRINT 
FRINT'OUTRA VEZ 
INFUT F$ 
IF P$e>"s" 
CLS 

RUN 

LET I=CODE <Z$)-28 
IF W=1 THEN RETURN 
LET Zó=Zb(2 TO) 
RETURN 


VOCE VENCEU." 


EU VENCI." 


Qu 


THEN GOTO 920 


Mat 


O Mappin garante o que vende. 


Aberto das 8 as 24 horas, 
inclusive aos sábados. 


No Mappin você encontra 


toda a linha de Computadores 


Pessoais Prológica. 


Dois endereços para sua comodidade: 


Centro 

Pça. Ramos de Azevedo, 120 
Fone: 258-4411 

Jardins 

Av. Cidade Jardim, 73 

Fone: 881-1144 





| Microfestival 84 























De 21 a 24 de março, das 09 às 
24:00ns, no Parque Anhembi, esta- 
rá sendo realizado o II Microfesti- 
val 84, que apresentará ao público o 
que a indústria nacional de infor- 
mática vem produzindo em termos 
de mínis e microcomputadores, 
equipamentos periféricos, acessó- 
rios, software e serviços. 

Participando do evento, a Pro- 
lógica levará ao Anhembi os Siste- 
mas Comerciais S 600 e S 700, além 
de toda a linha de Computadores 
Pessoais que fabrica: CP 200, CP 
300 e CP 500, com seus respectivos 
periféricos. 

Os ingressos para o II Microfes- 
tival 84 poderão ser encontrados 
nas bilheterias do Anhembi, a CrS 6 
mil. Maiores informações na Guaz- 
zelli Associados Feiras e Promo- 
ções, r. Manoel da Nóbrega,800,São 
Paulo, tel.: (011) 285-0711. re mg 


Tracadores Gráficos 





A Filcres está comercializando 
com exclusividade a linha comple- 
ta de traçadores gráficos Baush & 
Lomb, para os formatos Al, A2, A3 
e A4. Comandados por micropro- 
cessador, os traçadores gráficos 
Baush & Lomb podem ser utiliza- 
dos por diversas áreas, da engenha- 
ria à topografia, sendo encontrados 
em três modelos: DMP-29, com área 
de traçado de 10x15 pol., resolução 
de 0,005 ou 0,001 pol., e velocidade 
de 22,62 pol./seg.; DMP-40, com 9,25- 
x15 pol. de área de traçado, 0,005 
pol. de resolução e 4,2 pol./seg. de 
velocidade; e o DMP-4], com 18,5- 
x30 pol. de área de traçado, 0,005 
pol. de resolução e 4,2 pol./seg. de 
velocidade. O endereço da Filcres é 
av. Engº Luis Carlos Berrini, 1168, 
tel.: (011) 222-5430 e 531-8822, r. 263. 


Ret. M 319 









Software para Motêis 





O Motel Tahiti, de Natal (RN), 
está utilizando um Sistema de Ge- 
rência por Microcomputador em 
Tempo Real, composto por dois 
computadores pessoais CP 500 — 
com 48 Kb de RAM, dois drives de 
disquetes e interfaces RS 232€C — 
acoplados a impressoras P 720. Os 
equipamentos estão ligados a um 
ND BREAK de 1 KVA, para evitar 
qualquer interrupção de força e ga- 


rantir o funcionamento do sistema 
24 horas por dia. 

O software possui três progra- 
mas que primeiramente registram 
a hora de chegada do hóspede, nº 
dos apartamentos ocupados e pedi- 
dos realizados, que são registrados 
e armazenados em disquetes, sendo 
que os micros imprimem automati- 
camente a respectiva comanda. Os 
dados dos pedidos vão sendo acu- 
mulados por apartamento e simul- 
taneamente os computadores dão 
baixa no estoque físico, comutando 
os valores financeiros para o caixa 
diário. 

O sistema permite, após o en- 
cerramento do dia, os seguintes re- 
latórios: Caixa Diário, classificado 
por valor financeiro de cada aparta- 
mento; Consumo Diário; Estatísti- 
ca de Ocupação, por tipo de aparta- 
mento e seus valores financeiros; 
Relatório Horário de Ocupação; 
Relatório de Ocupação por Aparta- 
mento; Relatório Físico e Financei- 
ro do Estoque Geral. O sistema 
também fornece lista de preços (im- 
pressa), tabela diária (vídeo) e ma- 
pa dos apartamentos ocupados em 
determinado momento (vídeo). 

Todo o trabalho de desenvolvi- 
mento, programação e implantação 
do sistema foi feito com pessoal de 
Natal, sob a supervisão de Alcyone 
Dowley, dono do Motel Tahiti, e 
assistência da Filcres e Prológica. 
O Sistema de Gerência por Micro- 
computador em Tempo Real está 
sendo comercializado com exclusi- 
vidade pela Prológica Microcom- 
putadores. re: 220 








interface para 
Rádio Amador 





Projetada especialmente para 
micros que se utilizam de micropro- 
cessadores Z80, a Rensi Eletrônica 
Digital está comercializando a in- 
terface (e programa) RS 10504, pa- 
ra transmissão de O.W. (telegrafia). 
Com recepção automática e trans- 
missão regulada por software de 10 
a 50 palavras por minuto, a interfa- 
ce retira o sinal de áudio do fone 
transceptor e o transmite pelo ter- 
minal KEY, onde normalmente é 
ligado o manipulador. Para adap- 
tar a RS 10504 ao micro não é 
preciso fazer qualquer modificação 
de hardware. Outros detalhes sobre 
a interface podem ser obtidos na 
própria Rensi Eletrônica Digital 
Ltda., caixa postal 6.661 CEP 01050 
- São Paulo, SP. re. m 32] 


É 


Olimpiadas 
da Matemática 





A Prológica estará doando 
computadores pessoais aos melho- 
res alunos das 7º*s e 8ºs séreis do 1º 
Grau e 1º série do 2º Grau que 
obtiverem as melhores colocações 
nas Olimpíadas da Matemática, 
promovidas pela Academia de 
Ciências do Estado de São Paulo. 

Contando com a participação 
de aproximadamente duas mil es- 
colas, da rede federal, estadual, mu- 
nicipal e particular do Estado, as 
Olimpíadas tiveram início neste 
mês de fevereiro e deverão se esten- 
der até o mês de dezembro. A pri- 
meira fase do evento será realizada 
na segunda quinzena de junho, e 
selecionará os melhores alunos de 
cada escola. Na segunda fase, com 
provas no dia 29 de setembro, serão 
selecionados os melhores alunos 
das séries participantes, inscritos 
em cada Delegacia Regional de En- 
sino. Na terceira e última fase das 
Olimpíadas, cujas provas serão rea- 
lizadas no dia 8 de dezembro, serão 
selecionados os vencedores do cer- 
tame. Aos alunos de cada série que 
se classificarem em primeiro e se- 
gundo lugares, a Prológica doará 
microcomputadores CP 200. Maio- 
res informações sobre as Olimpía- 
das da Matemática podem ser obti- 
das na própria Academia de Ciên- 
cias do Estado de São Paulo, Anti- 
go Edifício da Reitoria, 4º andar, sl. 
413, cx. Postal 22-297, CEP 01498 - 
São Paulo - SP, tel: (011) 211-5106. 


Ret. M 322 











Lançamento Prológica 


Em abril, a Prológica estará 
lançando comercialmente, para o 
CP 300 e CP 500, o Drive de Disque- 
te Dupla Face, de 5 e 1/4” e 350 Kb 
de memória disponível. O Dupla 
Face apresenta sistema operacio- 


nal DOS 500 VI./ REV. 2-D, com 80 
trilhas, nova versão do DOS 500, 
com 40 trilhas. ret. m 323 





Errata Mantal CF 300 
4 


No Manual Prosoft referente ao 
CP 300, à pág. 9, item 2.21, onde se 
lê: “A pergunta CASS? Digite B”, 
leia-se: “A pergunta CASS? Digite 
A”. ret Mm 324 
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Sistema Operacional 


O sistema operacional é com- 
posto de uma série de programas 
e rotinas, gravados em disco, que 
são utilizados para abrir e fe- 
char arquivos, gravar e ler progra- 
mas no disco, em suma, para mani- 
pular todas as entradas e saídas de 
informações do disco. 

Existem duas maneiras de se 
gravar um disco. Uma é colocando 
nele todas as rotinas do siste- 
ma operacional, e este será chama- 
do disco de sistema; a outra é ape- 
nas formatar o disco, que por sua 
vez será chamado de disco de da- 
dos. O disco de sistema deve obri- 
gatoriamente ser colocado na uni- 
dade zero para que o computador 
possa ser inicializado. O disco de 
dados pode ser colocado em qual- 
quer outra unidade, desde que na 
unidade zero exista um disco de 
sistema, pois de outro modo o com- 
putador não poderá manipular as 
informações contidas nos discos. 

No artigo de hoje, veremos o 
que é formatação, o que são setores 
e trilhas e em que medida são ne- 
cessárias estas informações para O 
sistema operacional. 


Formatação 


A palavra formatar não existe 
na língua portuguesa e é apenas 
uma adaptação da palavra inglesa 
FORMAT, que significa dar um for- 
mato a alguma coisa, no caso, um 
disquete. 

Quando você compra um dis- 
quete virgem, significa que ele não 
possui nada gravado, mas absolu- 
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tamente nada mesmo. É necessário 
então que o sistema operacional 
(que a partir de agora será chama- 
do de SO) faça a divisão do disque- 
te em trilhas e setores, gravando 
para isto uma série de informações 
no disco. Para se ter uma idéia de 
quantas informações são necessá- 
rias na formatação, saiba que um 
disquete virgem tem praticamente 
o dobro da capacidade de um já 
formatado. 

Após a formatação, o disquete 
fica subdividido em trilhas e seto- 
res. Estas trilhas, que são gravadas 
magneticamente, podem ser vistas 
como as divisões das faixas de um 
disco de música, ou seja, são uma 
série de círculos concêntricos nos 
quais a distância entre um e outro 


FURO DE 


TE 


REFERÊNCIA 


varia para que cada uma das trilhas 
possa ter a mesma quantidade de 
informações, isto é, mantenha a sua 
área constante. No desenho da fig. 1 
mostramos um disquete, sem o res- 
pectivo envelope, para que você 
possa ter uma idéia do posiciona- 
mento das trilhas e setores do dis- 
co. No disquete existem 40 trilhas 
numeradas de zero a 39. 

Os setores são raios cujo arco é 
constante e dividem o disquete em 
dezoito partes, setores numerados 
de zero a 17 (no caso do DOS-500), 
para que o SO possa encontrar ra- 
pidamente qualquer posição no 
disco. 

Quando a formatação é encer- 
rada, algumas informações — como 
o nome do disco, senha mestra, se o 
disco tem sistema ou é um disquete 
de dados — são gravadas no disco. 

Em todos os sistemas operacio- 
nais existe uma trilha, em geral a 
de número zero, que é usada quan- 
do o computador é ligado, e é neces- 
sário fazer a sua inicialização, ou 
quando é pressionada a tecla RE- 
SET. Esta trilha é cnamada de tri- 
lha de BOOTSTRAP, ou seja, 
quando ligamos o computador e 
colocamos na unidade de disco nú- 
mero zero um disco com sistema, é 
nesta trilha que é posicionada a 
cabeça de leitura da unidade de 
disco. As informações contidas nes- 
ta trilha, que foram gravadas du- 
rante a formatação, dizem ao com- 
putador: 

1 - Se o disco já está formatado; 
2 - Se existe: sistema operacional 
gravado; 

3 - Se o computador já foi inicializa- 
do anteriormente. 

Se todas estas respostas forem 
afirmativas, aparecerá a mensagem 
de DOS500 Ativo, significando que 
o SO está pronto a receber qual- 
quer comando. Os comandos do SO 
serão discutidos em outra oportuni- 
dade. 

Se o disco não estiver formata- 
do, não há condições do SO enviar 
nenhuma mensagem para a tela, 
pois todas as mensagens do SO 
estão gravadas no disco, e portanto 
o computador ficará “pendurado” 
lendo a trilha zero durante alguns 
segundos, parando em seguida o 
acionamento da unidade de disco. 

Se o disco estiver formatado, 
mas não houver sistema gravado 
(disco de dados), aparecerá a men- 
sagem SEM SISTEMA e será encer- 
rada a operação. 

Se o computador já foi iniciali- 
zado anteriormente não serão pedi- 
das a data e a hora, antes de ser 
colocada a mensagem DOS500 
Ativo. ret M 325 





nvasão Espacial 


ETs implacáveis no Seu foguete será 
céu da cidade! Para salvá-la controlado pelas teclas do 
dos bárbaros espaciais você CP: pressionando o número 
terá de pilotar um foguete de 4, ele irá para a esquerda; o 
dez mísseis, com poder de número 5, para cima; o 
destruição âdireitaou | número 6, para a direita;eo 
esquerda. Quando sua | múmero 2, para baixo. A 
munição estiver acabando, | barra de espaçamento atira 
você deverá os mísseis — eficientes 


aterrissar em seu “QG” Lua 
para recarregar. Se dez somente a certa distância — 
um a um ou em “fogo 


disparos atingirem os edifícios 
ou se um meteorito atingir sua rápido”. Invasão Espacial 
nave, você falhou em sua tem cinco níveis de 
missão e o jogo acaba. dificuldade. re. p 317 


q 
Pá pº 
Fa | 
a q ] 
/ Á / 
/ A p 
/ 

nda 


as E Adi 


E od 


* ui. 6 / que: é 





A 


Modelo CP 300/CP 500 
48k RAM 














| RRNNNNN MIM DIM DEDE MODE DEDE DEDE DE DEDE DE DE ME DE 30 FRINT:PRINT' A VIDA DOS HABI 
2 '% INVASAO ESPACIAL = TANTES DE NOSSO FLANETA ESTARA” EM 
3 *% FROLOGICA * SUAS MAOS, FARA ISSO FOI 
4 “x CP-300 7/7 CP-500 x PROJETADO ESPECIALMENTE PARA VOCE 
RR DE DEDO DR DEE DEDE DE DE DEDE DEDE DE DE DEE DE DE DE ME UM FOGUETE DE COMBATE O 
6 RGT=132:LFT=188:Y=1:DIM Á(<1i2,3): NDE TERA” OS SEGUINTES COMANDOSs" 

CLS:FRINTQG4OLU,''INVASAO ESPACIAL" 31 FRINTQ780,'"'TECLE <EARRA ESPACO> 
:*2FORI=1 TO 100:NEXT FARA CONTINUAR." 

7 FOR X=1i TO 11 92 AS=INKEY$S:IF A$S<>CHR$(32) THEN D 
8 A(X, Y)=RGT 2 

9 RGT=RGT+64 35 CLS:FRINT" TECLA 

10 NEXT X INSTRUCAO" 

11 Y=2:FOR X=L TO 11 94 FRINT:PRINT" RR TRA M 
12 A(X, Y)=LFT OVE O FOGUETE P/ ESQUERDA 

13 LFT=LFT+64 CO chame a a nceia aaa MOVE 

14 NEXT X O FOGUETE F/ DIREITA 

15 E=784:U=11:F=831:C0=2036=196:H=0 SDZesenseccena MOVE O FO 
:1=02:L=5:1=0:SC=0:LS=1:6$=" ":DI$= GUETE P7 CIMA 

“y! s RUP$=CHR$(176)+CHR$(191)+CHR$< do FRINT" 6 MOVE O 


176) 2: RRT$=CHR$(191)+CHR$(140)+CHR$ 

(140) :M$=CHR$(153)+CHR$(166)2:WL=75 

sW=10 

16 DEFDEL R-T:DEFINT E 

172 CLS 

18 GOSUE 23 

19 CLS:GOSUE 42 

20 GOTO 64 

2i GOTO 189 

eco RESTORE:GOTO 15 

go CLS 

24 PRINT:PRINT:FRINTOGSO,"P ROLO 

*G 1 C A":PRINTESPRINTESPRINTESPRINT: 

PRINT: INPUT" VOCE 

DESEJA INTRUCOES (<S/N)'";6G$ 

co IJF 6$6="5'" GOTO 28 

26 IF G$='"'N" RETURN 

27 GOTO 24 

28 CLS:FRINTOGB6,!! INVASÃO ESPACIA 

L tm 

29 FRINTQ260,"ESTE JOGO CONSISTE N 

UMA AVENTURA NA QUAL VOCE ESTA INC 

UM- EIDO DE PROTEGER UMA DET 

ERMINADA CIDADE DA TERRA CONTRA À 
INVASÃO DE NAVES ALIENIGENAS 





FOGUETE F/ BAIXO 
«BARRA ESPACO>...« «ACIONA 
OS MISSEIS":PFRINT 
96 FRINT" TODA VEZ QUE SEUS MI 
SSEIS ACABAREM, TERA” QUE RE- 
TORNAR AO “O 6º PARA SEU 
FOGUETE SER RECARREGADO." 
97 FRINT" O JOGO TERMINARA” CA 
SO VOCÊ FERMITA À ATERRIZAGEM 
DE “10” NAVES ALIENIGENA 
S QUE IRAM DESTRUINDO À 
CIDADE AO POUSAR. 
38 FRINT=SFRINT" PARA INICI 
AR O JOGO TECLECXBARRA ESFACO> " 
399 IF PEEK(Í4400)=128 RETURN 
4O GOTO 39 
41 CLS 
42 FOR X=1 TO 26:READ DTArF=F+1:PR 
INTGF,CHRE(DTAy NEXT 
43 DATAÍZO,176,176,176,176,176,176 
1176,176,128,128,128,128,128,128,1 
28,128,128,128,128,128,128,128,128 
1160, 128, 128,128 
44 FOR X=1i TO 285READ DTB:F=F+13PR 
INTGF, CHR$(DTE);=NEXT 
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4ô DATAÃiIZO,128,128,128,128,160,188 
» 189,180,128,128,128,128,128,128,1 
286, 128, 128,128,128,128,128,128,128 
» 128, 149, 149, 149 

4ó F=F+B 

472 FOR X=1 TO 3S1Í=zREAD DTC:F=F+1:2PR 
INTGF,CHR$(DTC);2:NEXT 

48 DATA1I91,191,191,191,191,191,191 
11599, 129,128,128,128,128,191,191,1 
91,191,191,191,191,128,1286,1988,188 
»191,199,128,1968,1988,128,128 

49 FOR X=1 TO 31:READ DTD:F=F+12PR 
INTGF,CHR$(DTD)s =NEXT 

0 DATÃiZ298,128,151,151,151,151,149 
» 128, 128, 128,1968,1908,1908,128,128,1 
70, 1286,128,1298,128,1298,128, 149, 149 
»149,128,1298,128,176,128,176 

ol F=F+2 

o2 FOR X=1 TO S1IzREAD DTE:F=F+12PR 
INTGF. CHR$(DTE) 5 2NEXT 

d3 DATAÃIO1,191,191,191,191,191,191 
128, 128,160,168,148,128,191,191,1 
91,191,191,191,191,168,1988,191,191 
»191,191,191,191,191,128,188 

o4 FOR X=1 TO 31:READ DTF:F=F+1:PR 
INTGF,CHR$(DTF)52NEXT 

do DATÃiÍOOS,191,191,191,191,191,191 
» 189,188,148,191,191,191,191,191,1 
91,191,128,191,191,191,191,191,191 
»191,191,191,128,191,191,191 

d6 PRINTQGE-1,RUP$; 

d7 PRINTQ975,"0 6"; 

8 PRINTOWL, mese de de 06 dt dede 

d9 PRINTOG6U, "MISSEIS: 

60 FRINTGSO0,"FERICIA: "5;LS; 

61 PRINTGO, "PONTOS: '';SCs 

62 PRINTO22,"RECORD= ";NM$55SH; 

63 RETURN 

64 IF PEERN(1Í14352)=0 GOTO 69 

69 IF PEERN(Ç1I4352)=32 GOSUE 77 

66 IF PEER(143592)=4 GOSUE 87 

67 IF FEER(143592)=16 GOSUE 105 

68 IF PEERN(14952)=64 GOSUE 96 

69 IF FEER(14400)=128 GOTO 70 EL 


70 IF DI$="U'" GOSUE 156 

71 IF DI$="R" GOSUE 124 

72 IF DI$S="L'" GOSUE 114 

73 IF E=8534 GOSUE 162 

74 H=H+LS+1 

7o IF H=l GOSUE 145 

76 GOTO éó4 

77 E=255-INP(O):IF E<192 GOTO 78 
ELSE 79 

78 E=E+64:U=U+1:GOTO 82 

79 PRINTGE-1, RUF$; 

80 PRINTGE-1,STRING$(3,128); 

81 PRINTQGE-1,STRING$(3,131);2:PRINT 
GE-ó4, CHR$( 1988); 

82 PRINTQGE-1,STRING$(3-128)72:E=E-6 
GsU=U-1 

83 PRINTGE-1,RUPS$; 

84 H=H+LS+I=zIF H>L GOSUE 145 

85 DI$="U" 

86 IF PEEk(14352)=32 GOTO 77 ELS 
E RETURN 

87 E=259-INFP(O):IF E>766 GOTO 88 
ELSE 89 

88 E=E-64:U=U-1:GOTO 90 

89 PRINTQGE+63, STRING$(3,-131)52:FRIN 
TGE, CHR$(188)3 

90 PRINTGE-1,STRING$(3-128)73E=E+ó 

WsU=U+1 

91 PRINTGE-1,RUP$; 

92 IF E=704 GOSUE 162 2H=H+LS=: IF 
H>L GOSUE 145 
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93 DI$="U" 

94 H=H+LS+I:zIF H>L GOSUE 145 

95 IF PEER(14352)=4 GOTO 87 ELSE 
RETURN 

96 E=255-INP(O)z2IF E>2A(U,2) THEN E 

=E-2 

97 PRINTQGE-1,STRING$(2,128);2:B=E+2 

98 PRINTQGE-1,RRTS$; 

99 H=H+LS+I:z IF H>L GOSUE 145 

100 IF E=784 GOTO 101 ELSE 102 

101 GOSUEBE162 2zFRINTGE-1,RRT$; 

102 DI$="R" 

103 IF E=8 GOTO 96 

104 IF PEER(14352)=64 GOTO 96 EL 

SE RETURN 

105 E=255-INP(O):2IF E<AÁ(U, 1) THEN 

E=E+2 

106 PRINTQGE, STRING$(2,128)7:E=E-2 
107 PRINTQGE+1,CHR$(191);2PRINTGE-1 
» STRING$(2, 140); 

108 H=H+LS+I= IF H>L GOSUE 145 

109 IF B=7284 GOTO 110 ELSE 111 
110 GOSUE 162 «FRINTQGE+1,CHR$(191 
5: PRINTQGE-1, STRING$(2, 140); 

111 DI$="L" 

112 IF E=4y GOTO 105 

113 IF FEEK(ÇÍ4352)=16 GOTO 105 EL 
SE RETURN 

114 C=19:X=02J=E-2:M=INT(J/64) 

115 W=W-1:PRINTOWL," "ssWL=WL+1 2 IF 
W<O GOTO 116 ELSE 117 

116 WL=WL-12RETURN 

117 K=J/642A=INT((KR-M)x64)3IF ASC 

THEN C=A 

118 PRINTOGJ-C, STRING$(C, 140); 

119 PFRINTOJ-C,STRING$(C, 128); 

120 IF G<J GOTO 121 ELSE 122 

121 IF G>J GOTO 172 “IF G=J-C GOT 

O 172 

122 C=20:H=H+LS+I:IF H>L GOTO 145 


123 RETURN 

124 X=0: J=E+22M=INT(J/64) 

125 W=W-1:FRINTQGUL," "sswWl=Wl+1sIF 
W<O GUTO 126 ELSE 127 

126 WL=WL-12RETURN 

127 kK=J/64:D=INT((K-M)X64)2:A4=64-Ds 
IF A<«C THEN C=Á 

128 IF k=M RETURN 

129 FRINTQOJ,STRING$(C, 140); 

130 PRINTOJ,STRING$(C, 128); 

131 C=20 

132 IF 6>J-i GOTO 15353 ELSE 154 
1353 IF G<J+C GOTO 172 <=“IF G=J+CG6 
OTO 172 

1534 H=H+LS+T:IF HZ=L GOTO 145 

135 RETURN 

136 J=E-64:P=J:k=3 

137 W=W-1:FRINTOUL," ""ssWl=WL+1=2IF 
W<o GOTO 138 ELSE 139 

138 WL=WL-1:RETURN 

139 IF J<i92 GOTO 144 

140 FOR X=3 TO U:F=P-64:PRINTQGP,CH 

R$(191)5:NEXT X 

141 FOR X=3 TO U:zPRINTOP,CHR$(128) 
ssP=P+64:NEXT X 

142 IF (J/64)-INT(J/64)=G/64-INT«<G 

/64) THEN GOTO 172 

143 H=H+LS+I:IF H>lL GOTO 145 

144 RETURN 

145 PRINTOGG,STRING$(2,128); 

ilyéó H=0:6=G+64:IF G=E GOTO 154 

1472 IF G=E-2 GOTO 154 

148 FRINTOG, M$; 

149 IFG>958 GOTO 150 ELSE 153 

150 H=-102:T=T+1isIF T=9 GOTO 21 

















151 G=RND(50):6=642:6=6+128:1F G=1 1725 GOTO 177 








44 GOTO 151 176 1=6:LS=4 
152 IF G=142 GOTO 151 | 177 PRINTQ60,LS; 
153 RETURN 178 M=l 
ou X=0 179 PRINTGG,STRING$(2,128); 
150 PRINTeGB-1,STRING$(53,128)5:FRIN 180 FRINTEG, STRING$(2, 140); 
TeE+2, "EUM" | 181 PRINTEG,STRING$(2,128)5 
156 PFPRINTQGB-1,STRING$(35,191)52:FRIN | 182 FRINTEG, STRING$(2,191)s5 
TEE+1,"EUM" . | 183 PRINTEG,STRING$(2,128)5 
O Cpo AR URNA SO eU 184 M=M+1:IF M<3 GOTO 179 
á = 185 G=RND(30) :6=6*2:6=6+1283H=-10 
158 X=X+1:IF X<i2 GOTO 155 a er na GOO TOS 
159 6=6+64: GOSUB 148 187 IF G=1i4y4 GOTO 185 
160 FOR X=1 TO 100:NEXT X 
161 GOTO 189 188 RETURN 
162 FRINTGEB+63,STRING$(3,131);:PRI 189 IF SH<SC THEN GOTO 190 ELSE 1 
NTGE, CHR$( 188); Ros LE 
a) 'R.: 6-1, 3» ssb=E 
nl 191 IF SC:20000 THEN PRINTE27S, "P 
164 PRINTGR-1,RUPS$S ARA EENS MIM INSERINTEPRINT 
165 WL=75:PRINTOUL, CRMMMRMMMMM ELSEPRINTE275, "CONGRATULACÕES 111 
166 W=10:FOR X=1 TO 25:NEXT X a a O NERS AO Aero 
167 FRINTQE-1, STRING$(3,140)5:FRIN 
TeB, CHR$( 143); SPRINTGE-64,CHR$(176); UVAS INICIAISCATE” 4 LETRAS) '"'sNM$ 
168 PRINTQGE-1,STRING$(3,131)3:PRIN 193 PRINTES92," JOGADOR: "';NM$:FRIN 
TQE-64, CHR$( 188); TE615,"PONTOS: ";SC 
169 PRINTQE-1,STRING$(3,128);:B=E- 194 SH=SC:IF LEN(NM$)24 GOTO 190 
64 195 FRINTE787, "DESEJA NOVO JOGO (85 
170 PRINTGB-1,RUF'$; /N)''52 INPUT ANS 
171 RETURN 196 IF AN$="S" GOTO 200 
172 SC=SC+500 197 IF AN$="N" GOTO 199 
| 173 FRINTQZ, SC; 198 GOTO 196 
174 IF SC>:9999 LS=23IF SC>19999 LS | 199 END 
=3: IF SC>49999 GOTO 176 200 GOTO 2% 









Dois importantes títulos da 
“Howard W. Sams” agora em português 


BASIC PARA CRIANÇAS (DOS 08 AOS 80) 
de Michael P. Zabinski 


Este livro foi escrito especialmente para os jovens que queiram 
aprender a linguagem BASIC, a mais popular e difundida lingua- 
gem de programação dos computadores pessoais. Nenhum conhe- 
cimento prévio é necessário para acompanhar este livro, pois ele 
parte dos conceitos elementares e aborda apenas os pontos funda- 
mentais da programação em BASIC. 

Trata-se de um livro divertido, escrito num estilo leve e bem humo- 
rado. Sua abordagem é clara e estimula o principiante a praticar 
cada novo conhecimento adquirido. O livro se baseia na linguagem 
BASIC Nível II do TRS-80, um dos mais populares. 


— o. — . — . - — o. — o ms — . — . — . e. —. . — . me . um — — — em—— me— -q 


Em anexo estou remetendo a importância de CrS | 
em, Cheque Nº c/Banco 


de idéias para o programador. Q 
Escritas em BASIC Nível II, as sub-rotinas podem ser usadas dire- Obs.: Se não quiser destacar esta folha, pode enviar xerox.ou carta com os m 
tamente em equipamentos compatíveis com o TRS-80 (CP 500, CP | “dados completos. 7 e | 
300, DGT 100, D 8000). RPE A DO a RD o ga dito Gi di ando ] 

ADQUIRA-OS NA SUA LIVRARIA DE CONFIANÇA OU SEGUINDO AS INSTRUÇÕES 


| 

| Eno 
SUGESTÕES PARA O PROGRAMADOR BASIC | ouValePostalNº (enviar à Agência Central SP) 2 7 
derEarl R. Savage | para pagamento do(s) Livro(s), [02] (assinalar) que me serão remeti- = |. 

, | dos pelo correio. E | 

Nada melhor para o programador do que um livro de consulta que | cheque ou Vale Postal, pagável em São Paulo, a favor de: o 
revele aquelas técnicas e “dicas” que os programadores mais expe- EDITELE Editora Técnica Eletrônica Ltda. TA 
rientes tanto escondem. Este livro faz isso. Ele dá dicas sobre como | Caixa Postal 30.141 - O1000 - São Paulo - SP eo 
melhorar e agilizar seus programas. Contém 50 sugestões detalha- | ae PIS O E NO DE DO « A 
damente explicadas sobre técnicas e sub-rotinas para as mais diver- | ENREDO E ea Dt rr MA RS a o 
Ro aplicações. São pocetindas pedi as nie possíveis no Emis a 4 E RR ao sá Vi PE A z 
sugestões apresentadas, o que torna o livro uma fonte inesgotável [a End o sm 

| 

| 








Este programa possibilita o 
armazenamento de códigos, 
em linguagem de máquina, 
dos endereços que são 
solicitados nos inícios de 
seus programas. 


LO “CUNEMNMM IM MIM DE DEDE IDE DD DE DE DM DM DE DE DE 


20 “x TRANSPORTE 1 al 
30 “x FROLOGICA * 
4O “x CF'- 300 /CF' —500 * 


DO CMMEMEDE DE DEDO DE DEDE DEDE DO DE DE DO DE DE DE DE DE DE DE DE dE 

60 “CONVERTE LINGUAGEM DE MAQUINA 
FARA DENTRO DOS DATA DO EASIC 

70 CLS: A=PEEK( 165949)4256+PEEK(ÍOSU 
B):E=PEER( 16634) *25)6+PEEK(16633)2X 
=4B3: LI4=À 

B0 INPUT'ENDERECO INICIAL"FLO 

90 INFUT"ENDERECO FINAL"FZEN 

100 MC=PEER(LO)=: IF LO=EN THEN 160 


110 PRINT LO;3IF 1Z>E THEN STOP 
120 AAZ=MCe.01 EEZ=(MC-(AAZX100))% 
o 12 CCA=MC-( (AAZHXI10O0)+(BBZHI1O)) 

130 AAZTHARA+X 3 BEZ=EBBA+X 1 CCA=CCA+X 
140 IF PEEK(IZ)=353 AND FEEKC(IZ+1)= 
33 AND FEEK( 1X+2)=553 THEN FOKE I&, 
ARA: POKE(I4+1)» BBA3FPOKE(IX+2), CCAS 
LO=L0+12314=1%X+53:1F 1426 THEN STOP 
ELSE GOTO 100 

150 IXz1%+1:GOTOl4O 


160 END 

120 DATALII, MI, AMA, DLLs AMAs DAM 
Lo)h, 111,08] 

180 DATALII > !1I= 141, ILI> LL, 440,11 
FARS RARNERER 

190 DATALII, MI, MM0, MIA AMAs Add 
Lo )h, 11414, 101 

200 DATALLIs IM, 111, D1A, 400 00d 
EA RRRAREERER 

210 DATALIIs 111), MI, MAs 000, 000. 01 
FRRNRARRENES 
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Transporte 


Modelo CP 300/CP 500 
48k RAM 


e DATAI !! 
2114, 11151 
Ser DATA! | 
FRRRRRRRE 
240 DATA! | 
ERRRRRRRR 
250 DATA! ! 
Lo lhho 411,01 
260 DATA! 1! 
| 

| 

| 


REAR RRRARRERERENENEAR 
Lol, i4d 
270 DATA! 
Lo 14h, 111 
280 DATA! 
RF RNREANER 
290 DATA! 
Holllo ih, 
300 DATA! ! 
Lo 1114, 011 
3910 DATA! 
Lobi, 011 
320 DATA! 
ERRA 

350 DATA! 


REA RRRARREANNERENEA 
RENNES EREAREEANEERE 
ercaRRaRi oa 


| 
] 
| 
| 
| 
| 
pa 
21! 
N 
| 
E 
|, 
1 
Bo PREN 
ES 

PR RRRRRSRR 
| 

| 

| 

| 

] 


390 DATA! es o ea 
Lo 111,01] 
260 DATA! 
Lo 14,111 
3720 DATA! 
Lo lhho 101 
380 DATA! 
Lo Bh, 011 
390 DATA! 


FRRREER 
400 DATA! 
ERRA 
410 DATA 
Lo 111,11 


ER ao 
430 DATA 
Lo 111,11 


460 DATA 
Lo 141,11 


490 DATA 
Lo 14h, h1 
00 DATA 
ERRA 


Lo 111,11 
90 DATA 
Lollo] 


Armazenando códigos nas 
instruções DATAS dos 
programas Basic, este 
aplicativo lhe proporcionará E 
uma área maior de memória 

disponível. rs cais 





VER 7 RR, 


HI, PL QL, DD 


RES UNA. 


Bean can 
Ls MAs AMA, AA Aa 
Eta STO o IN 
ESSO ode 1411] 
E ENRRENNERAEREANREARS 
ERRA RERANSENNNEAR 
RES RREANERARNENNEEAN 
RES NRENRREARRENENEAS 
RR RREAEREAREENERERR 
PES Eysooro ia 
RES RRRAEREREREAENERE 
RENRRRAREERERENERENE 
RES RRRANRRANRERERENE 


Conhecendo os CPs 
Interface RS 232 €C 


No número 2 de Geração Prológica, publicamos 
artigo de Marcos Lederman sobre a porta de IVO (entrada/saída), 
do CP 500. Dando sequência ao assunto, 
neste número de nossa revista, 
Ivanildo Miranda aborda outro dispositivo de IO, 
presente no CP 500: a porta RS 232. 


Com o advento dos microcomputadores, tornou-se possível a 
criação de comunidades informatizadas, microcomputadores fun- 
cionando como terminais bancários na própria casa do cliente, 
videotexto e outras aplicações que necessitam da transmissão e 
recepção de dados. Desse modo, surgiu e está em desenvolvimento 
crescente a Telemática, ou seja, o campo que cuida da transferên- 
cia e transmissão de dados entre usuários. 

Para que isso fosse possível fez-se necessária a criação de 
interfaces apropriadas e também de padrões e normas voltados à 
transmissão de dados, a fim de que esse setor não se transformasse 
numa torre de Babel. Um dos padrões mais utilizados éo RS 232C, 
adotado pela grande maioria dos fabricantes de computador. 

Nesse padrão os dados são transmitidos em tensões que 
variam de +12V a -12V, o que permite a utilização de cabos de 
vários metros de comprimento. Para utilização com comunicação 
através da linha telefônica é utilizado um aparelho denominado 
MODEM, que tem por função compatibilizar o sinal enviado pelo 
computador com os níveis exigidos pela linha. 

Outra vantagem desse padrão é de a pinagem do conector ser 
praticamente a mesma em todos os equipamentos. 

No CP 500 a interface RS 232C está localizada em uma única 
placa de circuito impresso (que já pode vir com o micro ou ser 
adquirida posteriormente), que contém todos os dispositivos ne- 
cessários à comunicação. 

O coração da interface RS 232C é a UART TR 1602, um 
circuito integrado de 40 pinos que tem como função verificar e 
paralisar o dado recebido, verificando sua paridade e indicando se 
o dado é válido ou não. A interface não tem condições de checar a 
velocidade e o número de bits que a outra máquina está enviando. 
Ela simplesmente é programada para uma determinada velocida- 
de e número de bits, pois espera-se que a outra máquina esteja 
compatível com tal programação. Caso não esteja, duas condições 
podem ocorrer: é gerada uma condição deerroou a UART não tem 
condições de reconhecer o que está chegando, ficando o sistema 
perdido. 

Durante a transmissão a UART gera a paridade, determina o 
tamanho da palavra, o número de stop bits e efetua a serialização 
dos dados. 

Comu foi dito anteriormente, a UART deve ser programada 
para realizar corretamente suas funções. Para tanto, a interface 
RS 232C é um dispositivo de entrada/saída mapeado, com cada 
endereço tendo uma função específica. 

A programação da UART não é feita diretamente, mas sim 
indiretamente através da instrução POKE do Basic. Na seção 
OPERACIONAL 8 de seu manual de Basic há mais detalhes sobre 
como é feita essa programação. 

Dizemos que a programação é efetuada indiretamente porque 
colocamos um valor na memória do CP 500 para que a CPU pegue 
esse valor e programe a UART. Por exemplo, para programarmos a 
velocidade de recepção e transmissão em 300 bauds devemos 
executar a seguinte instrução. 


POKE 16888, 85 


Quando da transmissão ou recepção de dados a CPU pegaesse 
valor e programa a velocidade da RS 232C. 

Abaixo vamos dar o mapeamento de endereços da RS 232, com 
suas respectivas funções: 


Eder 
== Transmissãa 


E 8 232 Ler status modem 'Resetar UART 
E 9 233 Não usada Programar velocidade 


E A Ler status UART Controle modem e UART 
IE B 235 Leitura de dadas Envia de dadas 


O status do modem pode ser lido por uma instrução do tipo X 
= IN (232), onde X conterá o valor do status. Para verificarmos o 
que está ocofrendo deveremos converter esse valor para binário, 


onde cada bit indicará o estado de um determinado sinal, de 
acordo com a tabela abaixo. 











Clear to Send 
D6 —-————————————————»- Doto Set Ready 
DD ———————» Carrier Detecter 
D4y ———————» Ring Indicator 
D3 —————————————————————» Não usado 

D2 —-————— +» Não usado 


D] —————— > Não usado 


Dado recebido 


Assim, se no nosso caso o valor * for 131, que em binário é 
10000011 (se você não sabe converter, use a tabela da página 166, 
do manual de Basic) teremos: 


DT  D6 D5 Dá D3 D2 Di DO 
1 0 0 0 0 0 1 1 
Isso indica que o sinal CTS está em nível alto e os sinais DSR, CD e 
RI em nível baixo. Indica também que um dado foi recebido no 
momento da leitura. 

No próximo número continuaremos com esse assunto, expli- 
cando como é programada a velocidade, o número de stop bits, a 
geração de paridade, o tamanho da palavra e como a CPU faz para 
verificar essas variáveis e as condições de erro. 





RADIOAMADOR - ATENÇÃO! 


Interface e Programa RS 10504 para recepção 


e transmissão de CW (telegrafia) 





Projetado especialmente para micros compatíveis com a lógica - CP 200 e 
NEZ 8000 c/ slow. 


Fácil de instalar; conectado entre o micro e a memória de 16k (Nez 8000). 
Retira O sinal de AUDIO da saída de fontes de seu transceptor e a 
transmissão é feita pelo terminal KEY onde normalmente € ligado o 
manipulador. 


Recepção automática. Transmissão regulada por SOFTWARE variando de 
10 a 50 PPM (palavras por minuto) 


10 memórias para mensagens padrão. 





Informações: 
RENSI ELETRÔNICA DIGITAL LTDA. 
Caixa Postal nº 6.661 
01051 São Paulo - SP 
TELS.: 220-4922/92-4837 
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Ramo, Software para a 
Area Administrativa 





sando a ca- 

pacidade má- 

xima de me- 
mória do CP 300 e 
CP 500, a Ramo 
Sistemas Digitais 
é uma casa de 
software que, na 
área dos computadores pessoais, vi- 
sa a atender ao pequeno e médio 
empresário em suas tarefas admi- 
nistrativas. Preocupado com a qua- 
lidade de seus produtos, Mauro 
Bartolini, um dos proprietários da 
casa, garante que a área adminis- 
trativa requer programas mais ela- 
borados, que supram as necessida- 
des dos usuários de microcomputa- 
dores. 


Apesar de ser uma empresa ra- 
zoavelmente jovem, a Ramo Siste- 
mas Digitais possui um catálogo 
como 16 títulos, todos para a área 
administrativa, que se subdividem 
em aproximadamente 50 sistemas, 
sendo que cada sistema é composto 
por uma série de programas inter- 
dependentes. Para desenvolver 
seus aplicativos (todos em disque- 
tes), a casa conta com o engenheiro 


eletrônico Sérgio Grinberg, tam-. 


bém um de seus proprietários, e 
mais dois analistas de sistemas. 


Além dos aplicativos que de- 
senvolve, a Ramo orienta seus 
clientes quando da compra de um 
equipamento, tendo em vista suas 
necessidades e aplicações específi- 
cas. No entanto, a software-house 
não efetua vendas de computado- 
res. Na área de micros comerciais, a 
Ramo desenvolve uma série de pro- 
gramas para o Sistema 700 e Siste- 
ma 600 da Prológica. 

Entre os principais programas 
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Bartolini e Grinberg. “Adrea administrativa exige programas elaborados” 


comercializados pela Ramo para o 
CP 300 e CP 500 está o Contabilida- 
de, que possui todas as operações 
contábeis. O aplicativo permite ca- 
dastrar o plano de contas com che- 
que dígito automático; listar os lan- 
çamentos gravados para conferên- 
cia; alterar lançamentos mesmo 
após gravados; adormecer contas 
para utilização posterior; lançar 
por contrapartida débito/crédito; 
gerar o Razão a toque automático; 
listar o Razão de todas as contas; 
emitir diário de período em aberto 
ou já fechado; atualizar contas não 
analíticas; atualização de saldos e 
balancetes; correção ou anulação 
do lançamento antes de novo Ra- 
zão; emitir balancete e balanço; 
controlar a contabilidade por cen- 
tro de custo; entradas para históri- 
cos padrão; complementação de 
históricos sem limite máximo de 
tamanho; efetuar loteamento de 
lançamentos. 

Para controle administrativo, 
físico e financeiro das empresas a 
Ramo desenvolveu e comercializa o 
programa Faturamento, que entre 
outras coisas permite: numerar as 
notas fiscais quando emitidas; emi- 
tir duplicatas complementares; 
acumular valor de venda no cadas- 
tro de clientes para listagens finan- 
ceiras; calcular o valor dos diversos 
vencimentos das duplicatas; permi- 
tir faturamento imediato ou poste- 
rior dos pedidos; possibilitar sus- 
pensão, reativação ou cancela: 





mento de pedidos 
cadastrados; con- 
trolar individual- 
mente os repre- 
sentantes pelas 
vendas faturadas; 
cadastrar as 
transportadoras 
para evitar digitação da nota pela 
indicação do código; verificar li- 
mite de crédito de cada cliente. 
Bastante útil para a indústria e 
comércio, o Controle de Estoques 
da Ramo mantém a auditagem de 
cada transação diária; gera preço 
médio contábil e preço médio atua- 
lizado; lista os volumes de venda 
dos últimos quatro meses; emite 
lista de preços com ou sem variação 
percentual; fornece listagens por 
código ou campo escolhido; lista as 
movimentações por data ou campo 
escolhido; emite Livro Fiscal auto- 
maticamente quando integrado; 
verifica os produtos não movimen- 
tados desde certa data; controla 
vários locais de estoque; emite to- 
tais de entrada/saída em determi- 
nado período por diversos campos. 


Além desses programas, a casa 
desenvolveu, para o CP 300 e CP 
500, os seguintes aplicativos: Con- 
tas a Pagar, Contas a Receber, 
Folha de Pagamentos, Agenda, Ar- 
curso, Controle Bancário, Cadas- 
tro de Clientes, Mala Direta, Pedi- 
dos. Todos os produtos da Ramo 
pode ser encontrados pelos usuá- 
rios na própria software-house ou 
nas lojas especializadas em micro- 
computadores, a preços que variam 
entre 18 e 455 ORTN's. 


O endereço da Ramo Sistemas 
Digitais é r. Deputado Lacerda 
Franco, 120, cj. 52, São Paulo, tel.: 
(011) 211-3119. Ret m 327 


Adicão e 
Subtração 


no CP 200 


10 
20 
30 
4O 
dO 


60 
70 
B0 


90 


Modelo: CP 200 
1I6k RAM 


MIT TITTTITITTITZIZTETTEI TA]: 
1» ADICAO / SUBTRACAO * 
“x PROLOGICA E 
* CFP - 200 ” 
MITITTIZIZTZITIITITTT TITO]! 
RAND 

GLOW 


PRINT TAB Ss; "ADICAO / SUBTRACÃO 


PRINT AT 2,05"QUAL O GRAU DE DI 


FICULDADE ?" 

100 PRINT AT 4U óp"'i. FACIL" 
110 PRINT AT 5, 65"2. MED ID" 
120 PRINT AT 6, óp"'3. DIFICIL" 

130 INPUT Z 

14O IF Z<i OR Z>3 THEN GOTO 130 
150 PRINT AT 6, OF "VERIFIQUE SE E + 
OU qa 8 

160 PAUSE 250 

170 LET X=0 

180 LET W=0 

190 LET W=W+5 

200 LET K=0 

210 LET N=B9+( ZuxB) 

220 LET A=INT(N4RND+11) 

230 LET B=INT(NXRND+11) 

240 LET Y=INT (2xRND) 

250 IF Y AND BLA THEN GOTO 
260 LET D=E 

270 LET B=A 

280 LET AzD 

290 CLS 

300 IF W>10 THEN GOTO 1590 

310 GDSUB 1660 

320 PRINT AT 6, 65"P* 

330 PRINT AT 6,05 ""5 

340 INPUT P 

350 FOR J=i TO 7-LEN STR$ PF 

360 PRINT" "a 

370 NEXT J 

380 PRINT PF 

390 PAUSE 50 


400 FOKE 


16437, 255 


410 IF P=E THEN GOTO 1370 

420 PRINT AT 9,95 "ERRADO! 

430 LET K=1 

4u4o PAUSE 50 

450 PDKE 16437,255 

4640 CLS 

4720 GDSUB 1660 

4B0 PRINT AT 9,95" "e 

490 PRINT AT 12,0;"VAMOS FAZER EM 
PARTES" 

300 PRINT AT 14,0OFrESTA " 

910 FRINT AT 14,55"SDMA"; 

920 IF Y THEN PRINT AT 14,55"SUBTR 
ACAO"; 

990 PRINT" E IGUAL As! 

d40 IF Y THEN FRINT'SE NECESSARIO 
NUMEROS JA FORAM EMPRESTADOS DA O 
UTRA COLUNA" 

d90 PAUSE 250 

260 POKE 16437,255. 

970 LET FA=INTÇÃ/1000)41000 

580 LET FE=INT(6B/1000)%41000 





Chame a troupe: dando sequên- 
cia à publicação de programas vol- 
tados à Educação, neste número de 
Geração Prológica veiculamos o 
Adição/Subtração dedicado a 
crianças em fase de aprendizagem. 

Com este educativo, o CP 200 
simula números aleatórios, formu- 
lando operações de soma ou subtra- 
ção. Depois de carregar o progra- 
ma, digite RUN e presione ENTER 
para obter um menu onde você e/ou 
a criança deverão selecionar o grau 


590 LET GA=(INT(ÇÃ/100)4100)-FA 

600 LET GE=(INT(B/100)4100)-FE 

610 LET HA=(INT(A/10)410)-(GA+FA) 
620 LET HE=(INT(E/10)x10)-(GE+FE) 

630 LET IA=A-(FA+GA+HA) 

640 LET IEB=B-(FE+GE+HE) 

650 IF NOT Y THEN GOTO 750 

660 IF IA:=IE THEN GOTO 690 

670 LET IA=IA+10 

680 LET HA=HA-10 

690 IF HA>=HE THEN GOTO 720 

700 LET HA=HA+100 

710 LET GA=GA-100 

720 IF GA:=GE THEN GOTO 750 

730 LET GA=GA+1000 

740 LET FA=FA-1000 

750 LET L=ly 

760 PRINT AT 3, Bye! 

770 PRINT AT 4,8; "=" 

780 IF E<100 AND A<100 THEN GOTO 8 
Bo 

790 IF E<1000 AND A<1000 THEN GOTO 
8uo 

800 LET M=FA 

810 LET N=FE: 

820 GOSUE 1430 

830 IF F<>0 THEN GOTO 420 

B40 LET M=GA 

850 LET N=GE 

B60 GOSUE 1430 

870 IF F'<>0 THEN GOTO 420 

880 LET M=HA 

890 LET N=HE 

900 GOSUE 1430 

910 IF F<>0 THEN GOTO 420 

920 LET M=IA 

930 LET N=IE 

940 GOSUB1430 

950 IF F<>0 THEN GOTO 420 

960 PRINT AT 12,0;"DTIMO. AGORA SO 
ME AS RESPOSTAS: 

970 PRINT AT 15,05"; 

980 FOR J=1 TO é 

990 PRINT" "s 
1000 NEXT J 

1010 PRINT AT 14,05"; 

1020 FOR J=1 TO 4 

1030 PRINT" "; 

1040 NEXT J 

1050 LET Ri=FA+FE 

1060 IF Y THEN LET R1=FA-FE 

1070 LET R2=GA+GE 

1080 IF Y THEN LET R2=GA-GE 

1090 LET R3=HA+HE 

1100 IF Y THEN LET R3=HA-HE 

1110 LET Ry=IA+IE 

1120 IF Y THEN LET R4SIA-IE 

1130 PRINT AT 14,05"! 

1140 IF R1<>0 THEN PRINT R15" +! 

1150 IF R2<>0 OR (RZ=0 AND R1i<>0)T 

HEN FRINTR2P" +"; 

1160 IF R3<50 OR (R3=0 AND(RI<>0 O 

R R2<>0)) THEN PRINT R35! + “5; 

1170 PRINTR4;" = n 

1180 LET J=0 

1190 LET R=0 

1200 IF R3<>0 THEN LET Rz8 





selygação 


de dificuldade das operações, op- 
tando por um número. 

Em seguida, aparecerá no can- 
to superior do vídeo uma operação 
a ser resolvida. No canto inferior, 
estará localizado um cursor*L* à 
espera de que a criança digite o 
número correspondente ao resulta- 
do da operação. Caso a criança erre, 
o CP 200 refará a operação em 
partes e, ao final de 10 questões, 
mostrará quantos foram os erros e 
OS acertos. ret p 319 


1210 IF R2:.>0 THEN LET R=17 

1220 IF Ri<>0 THEN LET R=5 

1250 IF R1i<>0 THEN LET J=2 

1240 PRINT AT 14+J,5+Rg!'9! 

1250 INPUT F 

1260 PRINT AT 14+J,5+RsF 

12720 PAUSE 100 

1280 FOKE 164537,255 

1290 IF P<>E THEN GOTO 420 

1300 CLS 

1310 PRINT AT 10,85"CORRETO" 

1320 PRINT AT 12,05" VAMOS TENTAR N 

OVAMENTE" 

1330 PAUSE 100 

1340 POKE 16437,255 

1350 CLS 

1360 GUTO 290 

1370 IF K=0 THEN LET X=X+1 

1380 PRINT AT 9,85"CORRETO" 

1390 PAUSE 50 

1400 POKE 16437,255 

1410 CLS 

1420 GOTO 190 

1430 LET L=L+ó6 

Í44O LET LMH=L 

1450 IF LEN STR$ M>LEN STR$ N THEN 
LET LM=LM-1 

1460 PRINT AT 3-LM;M 

1420 FRINT AT 4, L5N 

1480 FRINT AT S,L-lgp!ta====" 

1490 INPUT P 

1500 LET LP=L 

1510 IF LEN STR$ P>LEN STR$ N THEN 
LET LF=L-(LEN STR$ P-LEN STR$ N) 
1520 IF N=0 THEN LET LP=LM 

1530 PRINT AT 6, LPF 

1540 LET Q=M+N 

1550 IF Y THEN LET G=M-N 

1560 PAUSE 50 

15720 POKE 16437, 255 

1580 RETURN 

1590 CLS 

1600 FRINT"ACERTOU "sX;" DE "gW-1 
1610 FRINT AT 2,0;"DESEJA CONTINUA 
R TA) 

1620 INPUT Z$ 

1650 IF CODE(Z$)=CODE("S') THEN GO 
TO 170 

1640 FRINT AT 4, OF"OBRIGADO FELO J 
0G0O. TCHAU." 

1650 STOP 

1660 FRINT'QUESTÃO "'sW 

1670 LET E=zA+B 

1680 IF Y THEN LET E=A-E 

1690 PRINT AT 3,25""; 

17200 FOR J=1i TO S-LEN STR$ À 
1710 PRINT” "'s 

1720 NEXT J 

1730 PRINT À 

17240 PRINT AT 4,07"+ "5 

1750 IF Y THEN PRINT AT 4,05"!'— "p 
17260 FOR J=zi TO 5-LEN STR$ B 

17720 PRINT"! ''s 

17280 NEXT J 

1790 PRINT B 

1800 PRINT AT S,2p''amaan" 

1810 RETURN 
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Programa do Usuário 


Modelo: CP 200 


I6k RAM 





1 MEME DEDE DE DE DE DEDE DEDE DE DE DE DE DE DE DD DEDE DE DE DE DE 


2 'x PROGRAMA * 
S x DO * 
4 “x USUARIO * 
SD MEMDEDEDE DEDE DE DEDE DE DEDE DE DEDO DE DE DEDE DE DEDE DE DE DE DE 
10 LET X=6 
20 LET Y=7 
30 LET Z=0 
4O LET W=2 


S0 PRINTAT 3,115"PROLOGICA" 

60 FRINTAT 4, 135"CF-200" 

70 FRINTAT 7.3;"DIGITE O ANO” 
80 INPUT A 

90 LET Al=A 

100 PRINTAT 9,3;"DIGITE O MES" 
110 INPUT M 

120 PRINTAT 14. 18;A3"/";M; 


150 PRINTAT 20,05"QUANDO FRONTO DI 


GITE <ENTER>" 

140 LET Z$=INKEYS 

150 POKE 30000,211 

160 FOKE 30001,240 

170 POKE 30002,201 

180 IF Z$<>'"' THEN GOTO 210 
190 LET Q=USR 30000 

200 GOTO 140 

210 CLS 

220 FAST 

230 IF M>X THEN LET MM=M-X 
240 IF M<=X THEN LET MM=M+10 
250 IF M<=X THEN LET Al=AI-Z 
260 LET C=INT(ÃÃ/100) 

270 LET E=Al-100xC 


280 LET B=INT( (13uXMM-Z)/5)+INTÇE/Y 


DJ+INT(C/Y) 
290 LET F=<B+E+I-X=NC) 
3900 LET F=F-7xINT(F/7) 


310 LET DM=31-(M=4)-(Mz6)-(Mz9)-(M 
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=11) 

320 IF M<>X THEN GOTO 360 

330 LET DM=28 

340 IF (<A-100xXINT(A/100))=W THEN 1 
F (A-4OOXINT(A/400)) = THEN LET DM 
=29 

350 IF (A-100xXINT(A/100))<>0 THEN 
IF (A-YXINT(ÇA/Y))=0 THEN LET DM=29 
360 FOR I=W TO 27 

370 PRINT AT = 

380 PRINT AT 19. I; "BM" 

390 NEXT I 

400 PRINT AT é. W;"DOM SEG TER QUA 
QUI SEX SAE" 

410 PRINT AT 2. 105A5"'/"'5M 

420 FOR 1I=Z TO DM 

430 LET L=B+INT(F/7) 

44O LETC=Y*(F-7XINT(F/7)) 

4SO IF I<10 THEN PRINT AT L.Cs"'0"; 
I 

460 IF 1I>=10 THEN PRINT AT L.Cp” "! 
s1 

? 

470 LET F=F+Z 

480 IF <F-74INT(ÇF/7))=W THEN LET F 
=F+7 

490 NEXT 1 

S00 PRINT AT 21,Z5"OUTRA DATA (S/N 
2?” 

S10 INPUT A$ 

520 CLS 

530 IF A$="S" THEN GOTO 590 

S4O POKE 16509,118 

550 GOTO 540 

560 SAVE"PRO-CALEN"” 

570 SLOW 

s80 GOTO 10 

590 SLOW 

600 GOTO1O 








Errata Nº 2 
Geração 
Prológica 


No programa Invasor, página 
16, 6P nº 2, devem ser feitas 
as seguintes alterações: 


60 PRINT AT 19.Xp "= [I]-" 

90 PRINT AT L,Cs” |O)" 

280 PRINT AT L,C-15]BUMPSAT L.C-14” 

BUM " 

420 PRINT AT 10,105" [BONUS ]"'FAT 10,1 

03" BONUS” 

571 PRINT AT 10,15" 

R TECLA P/ INICIAR 
[BOA SORTE] " 

610 FRINT AT K- O5"N9''s TAE(31DI "AS" 

630 PRINT AT 1,15" digite 31 destes 

caracteres)" sAT 20,15" digite 31 de 

stes caractereshS'sAT 1,15" digite 3 

i destes caracteresGR'"sAT 20,15" dig 

ite 31 destes carac rena 

740 PRINT' digite 32 destes caracter 

es LD) 

760 PRINT" digite 32 destes caracter 

es J) 

780 PRINT" digite 32 destes caracter 

es ) 

840 PRINT AT 19. Xy"- a e 

900 PRINT AT 10,105'" [GAME QUER] "PAT 

10, 105" GAME QUER" 


DIGITE QUALQUE 


ÍBEIR 








A sua P 500 possui um set de caracteres para todas as 
aplicações possíveis. São 223 símbolos subdivididos da 
seguinte maneira: 


: vá Ss = 





CÓDIGOS UTILIDADE 
de Ob a 31 caracteres Je controle 
de 3º a 147 alfateto e simbolos especiais 


de iiz a 191 caracteres graficos | 
Je 192 a 223 letras gregas e letras se aaa 





» = 








Os caracteres de controle são utilizados para comandar 
algumas funções da impressora através de programas em 
Basic. Veja a seguir uma tabela que descreve cada um 
destes comandos: 








————— 


CÓDIGO | FUNÇÃO 


017 * soa alarme 

Ló salta tuna linha 

LE salta lina pagina 

JS retorno de carro 

14 * expande caracter 

dis * retorna de caracter espandido 

JE * caracter comprimido 

EA * caracter normal (S0 colunas) | 
ERA rrecede os romandos com * | 
o * entrelinha com 1/6" | 
E * entrelinha com 1/93" | 


E | 


Estes códigos devem ser usados no seu programa em 
Basic com a função CHR$ e o comando LPRINT. Por 
exemplo, se desejamos saltar para a próxima página de 
formulário basta executar: 

LPRINT CRHS (12) 

A impressora ao receber este comando avançará o 
formulário para a próxima página. Para podermos dimen- 
sionar o número de linhas que existem no formulário, 
devemos usar: 





POKE 16424, X 
onde X, é o número de linhas do seu formulário +1. Quando 
o Basic é inicializado (após um RESET) o valor de X é 67, 
que é o número de linhas (+1) de um formulário-padrão. 


Se você necessitar de um contador de linhas para 
controlar o formato da impressão ou o número de linhas no 
formulário, existe um endereço de memória (16425) que é 
incrementado de um em um, a cada nova linha colocada na 
impressora. Quando é executado um comando LPRINT 
CHRS$ (10) este contador é inicializado com o valor 1, 
justamente para poder ser usado no controle das linhas do 
formulário. 

Os códigos que na tabela são antecedidos por um 
asterisco (*), devem ser precedidos do código 27, ou seja, 
para imprimir os caracteres comprimidos devemos usar: 


LPRINT CHR$ (27), CHR$ (19) 
A$ - CHR$ (27) CHRS$ (19): LPRINT AS 


A vantagem de colocarmos os caracteres em uma 
variável alfanumérica é a de economizar memória e tempo 
de digitação, uma vez que precisamos apenas mandar 
imprimir a variável sempre que for necessário executar o 
comando desejado. 


DICAS & TRUQUES 


Os códigos 28 e 29 são usados para modificar o coman- 
do 10, ou seja, se desejamos um tamanho normal de 


Caracteres Especiais da P bOU | 


entrelinha (1/6) devemos primeiro configurar o comando 
CHRS$ (10), usando a seguinte sequência: 


LPRINT CHRS$ (27), CHR$ (28) 


Após este comando, toda vez que for usado o comando 
CHRS$ (10), a entrelinha será de 1/6”. Para configurar a 
entrelinha com 1/8” devemos proceder como acima, trocan- 
do apenas o comando CHR$ (28) pelo comando CHRS (27). 
Não se esqueça que o valor 1/8” é menor que 1/6”. 

Para usar o carácter expandido/comprimido, devemos, 
antes de usar os códigos 27 e 14, estar no modo comprimido. 
Para usar os caracteres expandidos, devemos primeiro 
estar no modo normal (27 e 20). Por exemplo, se estamos 
usando os caracteres normais: 


LPRINT CHRS (27); CHRS$ (20) “TEXTO” 
e queremos expandir, devemos usar: 
LPRINT CHRS (27); CHRS (14) “TEXTO”) 


Vejamos os seguintes exemplos: 
De caractere normal para comprimido/expandido: 
LPRINT CHR$ (27); CHRS$(19); 
CHR$(27); CHR$(14) 
Para retornar ao normal: 
LPRINT CHR$ (27); CHRS$ (15); 
CHRS$ (27); CHRS$ (20) 
De caractere comprimido para expandido: 
LPRINT CHR$ (27); CHRS$ (20); 
CHRS$ (27); CHRS$ (14) 
Para voltar ao anterior: 
T.PRINT CHRS$ (27: CHRS (15): CHRS (27): CHRS (19) 


Pelos exemplos acima você viu que os caracteres 
expandido e expandido/comprimido aparecem usando-se o 
mesmo comando CHRS$ (27); CHRS$ (14), se o caractere 
anterior era normal ou comprimido respectivamente. 


Exemplo: 
HOR MAL 
EXPAND IT NRO 
COMPRIMIDO 
COMPRIMIDO EXPANDIDO 





Os caracteres gráficos (128 a 191) podem ser usados se 
precisarmos fazer algum tipo de desenho na impressora. 
Por exemplo, podemos dividir duas tabelas de um relatório 
usando o comando: 

LPRINT STRING $ (80,140) 

LPRINT STRING $ (80,179) 
(veja a tabela de caracteres gráficos que está no manual da 
sua impressora). 


LETRAS GREGAS E ACENTUADAS 


As letras gregas e os caracteres acentuados (192 a 223) 
também devem ser usados com a função CHR$. Por exem- 
plo, vamos imaginar que queremos imprimir as palavras. 
TENSÃO DE ALIMENTAÇÃO, com a grafia correta da 
nossa língua. Para isto podemos usar o comando: 


LPRINT “TENS” CHR$ (206) “O DE ALIMENTA” 
CHRS$ (198); CHRS$ (206) “O” 
ou LPRINT “Tens” CHR$ (207) “o de alimenta” 
CHRS (199); CHRS (207) “o” 


Do mesmo modo que nos caracteres de controle, podemos 
colocar os códigos (CHR$(X)); em variáveis alfanuméricas 
para facilitar a digitação. 
Para uma lista completa dos caracteres acentuados, 
consulte a tabela da página 24 do manual da P 500. 
Ret. M 328 
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Política de Informática 


Professor de Física da Universidade Estadual de Campinas, 
ex-membro da Comissão de Microeletrônica da Secretaria 
Especial de Informática (SEI), técnico de produtos da Ele- 
bra-Eletrônica Brasileira, José Ellis Ripper Filho falou à 
Geração Prológica sobre a Política Nacional de Informática. 


— Há seis anos o mercado interno 
de mínis e microcomputadores foi re- 
servado às empresas 100% nacionais. O 
que isso significa em termos de desen- 
volvimento, tanto para o País como para 
a indústria da área? 

— Não existe nenhum país que con- 
seguiu se desenvolver tecnologicamen- 
te sem começar por algum nível de 
reserva de mercado. Essa reserva pode 
ter várias formas: parcial, total, através 
de tarifas e barreiras formais, mas de 
qualquer maneira ela é indispensável, 
uma vez que a competição real com 
grupos já organizados, já poderosos, é 
impossível para uma indústria que está 
começando. A existência de uma políti- 
ca de reserva de mercado é absoluta- 
mente essencial para se ter desenvolvi- 
mento tecnológico em alguns setores. 

A maneira pela qual se implantou a 
reserva de mercado no Brasil, procuran- 
do um setor (mínis e microcomputado- 
res) que ainda não estava desenvolvido, 
que ainda não estava implantado, foi 
politicamente mais fácil. Seria inviável 
em nosso país uma reserva de mercado 
absoluta, pois seria impossível tentar 
incluir nessa reserva os computadores 
de grande porte, não só pelo problema 
político de deslocar as multinacionais 
de um terreno já ocupado, como pela 
absoluta incapacidade das empresas 
nacionais de ocupar esse espaço. A re- 
serva de mercado brasileira foi uma 
atitude inteligente, que impulsiona o 
desenvolvimento do País na área. Hoje 
já não se pode negar que existe uma 
engenharia nacional dentro do setor e 
que estamos muito mais próximos da 
fronteira internacional de qualidade e 
preços do que em muitas áreas em que o 
mercado é aberto. 

— À Secretaria Especial de Informática, 
há quatro anos, é o órgão que concentra 
todas as decisões da área. Como osr. vê 
a atuação da SEI? 

— A SEI às vezes tem comprado brigas 
que podem parecer desnecessárias. No 
entanto, sua atuação tem sido extrema- 
mente positiva. Ela tem conseguido re- 
sistir a pressões como nenhum outro 
órgão conseguiu, tem assumido posi- 
ções corajosas publicamente, mostran- 
do que a Política Nacional de Informáti- 
ca é uma coisa para valer. Esse fato da 
Secretaria ter resistido a pressões e de 
ter comprado algumas brigas deu a ela 
credibilidade. Por isso, apesar de às 
vezes discordarmos de algum detalhe, 
ele faz sentido dentro de um contexto 
mais amplo. A linha geral política de se 
criar um espaço para a tecnologia na- 
cional através de uma reserva de merca- 
do é extremamente saudável e viabili- 
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zou toda a indústria que hoje nós temos 
no Brasil e eu acho que um dia essa 
mesma indústria vai ter de sobreviver 
sem a necessidade dessa reserva. 


— O sr. estipula um prazo para a reserva 


de mercado? 

— Politicamente não se pode ter um 
prazo. Acredito que a reserva de merca- 
do tem de ser mantida por um tempo 
razoavelmente longo, mas estipular um 
prazo fixo significaria colocar nas mãos 
do adversário as regras do jogo, o que 
seria equivalente a acabar com a reser- 
va de mercado. Como indústria nós não 
vamos poder ter um planejamento em 
função dessa reserva ser eterna. Temos 
de nos tornar competitivos e sobreviver 
no dia em que esse mecanismo mudar 
suas características ou até mesmo ter- 
minar. Existe a consciência de que para 
nos tornarmos competitivos lá fora, te- 
mos de abrir certos aspectos da reserva 
de mercado. 


— Em janeiro último foi extinta a Em- 
presa Digital Brasileira (Digibrás), órgao 
executor da política de informática. De 
que maneira a extinção da Digibrás afe- 
ta a área? 


— A extinção da Digibrás não afeta 
diretamente a política de informática 
nem a indústria. A ação da Digibrás nos 
últimos anos, e principalmente nos últi- 
mos meses, não era a de instrumento 
fundamental da política de informática: 
ela não conduzia a política e os financia- 
mentos que eram por ela liberados po- 
dem ser realizado por outro órgão. Ago- 
ra, se a Digibrás não for substituída aí 
então teremos um problema. Acredito 
que mais importante do que a extinção 
da Digibrás, no momento, seja a suces- 
são na SEI (o atual titular da Secretaria, 
cel. Joubert de Oliveira Brízida, deixa 
vago seu cargo em abril)e a definição do 
que vai acontecer com a Cobra. 

— O cel. Edson Dytz já se candidatou 
publicamente à vaga de secretário espe- 
cial de informática. 

— Se o cel. Dytz for nomeado secretário 
de informática, a previsão é de que a 
política geral continue a mesma, pois 
existe uma afinidade bastante grande 
entre ele e o cel. Brízida. A nomeação do 
cel. Dytz significaria uma decisão de 
continuidade da política de informáti- 
ca. Porém, isto não significa que não 
existam outras pessoas que também 
possam ser nomeadas nesse sentido. 
Acredito que a escolha e a nomeação do 
substituto do cel. Brízida seja um fato 
que pode afetar muito mais a política de 
informática do que a extinção da Digi- 
brás. 

— Qual a importância da Cobra dentro 


da indústria e a da política de informáti- 
ca? 

— A Cobra tem duas funções importan- 
tes: uma simbólica e outra real. Ela 
representa uma estabilidade da política 
de informática. O fato dela ser uma 
empresa estatal permite que ela tenha 
uma atuação mais política, ou seja, po- 
de correr riscos tecnológicos que muitas 
vezes as empresas privadas não têm 
condições de realizar. Há ainda outro 
ponto: se, depois de todos os investi- 
mentos, o governo abandonar a empre- 
sa, vai ser muito difícil manter a credibi- 
lidade da política de informática. Por 
outro lado, a função real da Cobra sem- 
pre foi a de incentivar o desenvolvimen- 
to das empresas privadas, de manter as 
empresas privadas competindo. A exis- 
tência de uma Cobra forte é uma garan- 
tia da política de informática. 

— Por todos estes fatores pode-se 
deduzir que a área de informática vive 
hoje um momento de vulnerabilidade? 
— Não há dúvida. Não só pelos fatores 
que mencionei mas também pela tre- 
menda pressão que está sendo feita 
pelas multinacionais e pelos governos 
estrangeiros. A oportunidade de uma 
mudança na direção da SEI, uma mu- 
dança na liderança da Cobra, são opor- 
tunidades para se aplicar mais intensa- 
mente essa pressão. Por isso, as empre- 
sas nacionais e toda a comunidade têm 
de exercer pressão contrária para poder 
dar sustentação à política de informáti- 
ca. Não há nenhuma evidência de que o 
govemo vá ceder a essas pressões, mas 
certamente é um momento vulnerável. 
— Ágora em março, o Congresso Nacio- 
nal vai avaliar o projeto da deputada 
peemedebista Cristina Tavares, que 
prevê a criação de uma “Leide Informá- 
tica”, institucionalizando a reserva de 
mercado. À criação de uma lei não seria 
uma solução para o problema da instabi- 
lidade que afeta o setor de informática? 
— Sou pessoalmente a favor de se insti- 
tucionalizar em lei a reserva de merca- 
do, embora reconheça que exista uma 
série de problemas em termos de acor- 
dos intemacionais. Mas, se sou a favor 
dessa lei é exatamente porque vivemos 
uma grande instabilidade na área. Eu 
não conheço todos os detalhes do proje- 
to da deputada Cristina Tavares, por 
isso não posso dizer se a forma como ela 
está propondo essa “Lei de Informáti- 
ca” é exatamente a que eu seria a favor. 
O atual modelo da política de informáti- 
ca é uma das poucas coisas com a qual 
todos os partidos políticos brasileiros 
concordam. Acredito que se todos tra- 
balharmos juntos existe uma grande 
chance de se institucionalizar a reserva 
de mercado. Ret mM 329 


Para que futuro você está 
educando seu filho? 
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ssim como toda educação E vai dar mais tempo para você e sua familia Veja o que você faz com o CP 200: 
emana de alguma imagem do criarem um futuro melhor. e Aprendizado em linguagem Basic 
futuro, toda educação emana e Divertidos jogos e passatempos eletrônicos 


alguma imagem do futuro.” e Orçamento doméstico 
(Alvin Tofller) e Controle de conta bancária 


O CP 200 da Prológica é simples de operar, e Aulas de matemática e física 
custa menos do que um tv a cores e faz e Gráficos e cálculos científicos 


importantes trabalhos de interesse de toda a LI PROLOGICA 
EEE 


familia. Com ele você e seus filhos aprendem a | 
linguagem “Basic” e ficam aptos a programar microcomputadores 


qualquer tipo de computador, participando e 
Av. Engº Luiz Carlos Berrini, 1168 - SP 








criando o momento atual que já é chamado de 
aera da informática. 

Basta ligar o CP 200 a um televisor e a um 

gravador para você ter um computador 

completo em sua casa. 

Assim como o extrato de tomate. o 

liquidificador. o durex. o automóvel, a máquina 

de escrever e a calculadora. o CP 200 vai 

simplificar sua vida. 
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Compatível com 
programas em fita 
cassete ou em disco. 


erande micro. 


Agora, na hora de escolher entre um Pode ser ligado ao seu ateh de TV, da 
microcomputador pessoal simples, de fácil mesma forma que no terminal de vídeo 
manejo e um sofisticado microcomputador de uma grande empresa. E 
profissional, você pode ficar com os dois. Com o CP 300 você pode 

Porque chegou o novo CP 300 Prológica. fazer conexões telefônicas 

O novo CP 300 tem preço de o 4 para coleta de dados, 
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ES possibilidade de Permite para o CP 500 ou o 

ES” expansão de memó- retonos TRS-80 americano. E o que é melhor: 


dá lefônica . j 
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Pode ser ? 
pesa ride quase 1 megabyte. outro sistema de microcomputador. 
E tem um teclado profissional, Nenhum outro microcomputador pessoal 
que dá ao CP 300 uma versatilidade incrível. na sua faixa tem tantas possibilidades de 
Ele pode ser utilizado com programas de expansão ou desempenho igual. 
fita cassete, da mesma maneira que com CP 300 Prológica. 
programas em disco. E ERTE Os outros não 
io fazem o que ele faz, + e a Wii 
O único na sua faixa que já pelo preço que 







nasce com 64 kbytes de memória. ele cobra. 
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IC Av. Engº Luis Carlos Berrini, 1168 - SP VALORES NDOS AIS 


o in 


RR E eo 




















AM 
Manaus - 234-1045 

-BA-Salvador - 2417-8951 

 CE-Fortaleza - 226-0871 - 244-2448 

 DF-Brasília - 226-1523 - 225-4534 « ES-Vila Velha 

229-1387 - Vitória - 222-5811 + GO-Goiânia - 224-7098 « MT 

Cuiabá - 321-2307 « MS-Campo Grande - 383-1270 - Dourados - 421-1052 

* MG-Belo Horizonte - 227-0881 - Betim - 531-3806 - Cel. Fabriciano - 841-3400 - Juiz 

de Fora - 212-9075 - Uberlândia - 235-1099 « PA-Belém - 228-0011 + PR-Cascavel - 23-1538 - Curi- 

tiba - 224-5616 - 224-3422 - Foz do Iguaçu - 73-37 34 - Londrina - 23-0065 « PE-Recife - 221-0142 « Pl-Teresina 

222-0186 « RJ-Campos - 22-3714 - Rio de Janeiro - 2064-5797 - 253-3395 - 252-2050 « RN-Natal - 222-3212 « RS-Caxias do 

ou! - 221-3516 - Pelotas - 22-9918 - Porto Alegre - 22-4800 - 24-0311 - Santa Rosa - 512-1399 » RO-Porto Velho - 221-2656 «SP Solicite 

Barretos - 22-6411 - Campinas - 2-4483 - Jundiai - 434-0222 - Marília - 33-5099 - Mogi das Cruzes - 469-6640 - Piracicaba - 33-1470 - Ribeirão demonstração 
Preto - 625-5926 - 635- 1195 - São Joaquim da Barra - 728-2472 - São José dos Campos - 22-73 11 - 22-4740 - São José do Rio Preto - 32-2842 - Santos - 33-2230 nos principais 
Sorocaba - 33-7794 « SC-Blumenau - 22-6277 - Chapecó - 22-0001 - Criciúma - 33-2604 - Florianópolis - 22-9622 - Joinvile - 33-7520 « SE-Aracajú - 224-1310. magazines. 


















GERAÇÃO PROLÓGICA 


ço 
en 
PE 
&+ 
G 
Receba em sua casa 
a revista Geração Prológica 
por 1 ano de novos programas 
e assuntos de seu interesse 
Em anexo estou remetendo Preencher a máquina ou letra de forma 
a importância de Cr$ 2500,00 em 
CHOQUE aaa sadia rs Ri SD Nome 
CIDANCO pucadnadiscenis sda Mad 
O Vale POSGNNO assiassspeesseseer add EnCSIaço 
para pagamento da assinatura CEP — Cidade 
de 6 números de Geração Prológica 
| Estado: Te. 


Obs: Não aceitamos Ordem de Pagamento 


Cheque ou Vale Postal a favor de: 
Prológica Indústria e Com. de Microcomputadores Ltda. 
Assinatura 





Serviço de Informação Geração Prologica 


NOME 


ENDEREÇO 


CAIXA POSTAL 


GER CIDADE 








EMPRESA 
CARGO TELEFONE RAMAL 


NE JR A 





Data 








e Assinatura 
Anote nos espaços acima o nº de ref. das matérias, artigos, notas e 


programas sobre os quais você desejariareceber maiores informações 
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E 





|.S.R. 40-2966/83 
U.P. A. CENTRAL 
DR/SÃO PAULO 


E 





CARTA-RESPOSTA COMERCIAL 


NÃO É NECESSÁRIO SELAR 


O selo será pago por: 


Prológica Indústria e Comércio de Microcomputadores Ltda. 


01098 - São Paulo (SP) 


pciga oito io PE ROSI DR DR PDR OP SRD APRE O ORE DN 


ERICEIRA dE RA SR E SM RES SE E E RS A CEA 
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